# We load a dataset as a \code{Coo} object
data(bot)
bot
# Some calibration
harm.qual(bot, 1)
harm.quant(bot)
harm.pow(bot)
# The idea behing elliptic Fourier analysis
Ptolemy(bot, 1)
# We calculate elliptic Fourier analysis
botF <- eFourier(bot)
botF
# We explore the matrix of coefficients
boxplot(botF)
harm.contrib(botF)
# Some analysis now
manova.nef(botF, "type")
tps(botF, 1, 2, grid.size=50, amp=1.5)
# And one PCA
botD <- pca(botF)
botD
dudi.plot(botD, "type")
Run the code above in your browser using DataLab